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Editorial 


Its not very often that we receive an article so comprehensive 
that it takes up most of the user group newsletter but this one 
written by Mark Rudnicki explains so much about programming the 
V.D.P. in machine code that we thought it best to print it all in 
one issue. The routines used also may help to explain the mystery 
of machine code programming to some of you who have not had= much 
experience in this field. Some of the routines are shown as a 
Basic programme first and then in machine code after. This is a 
technique used a lot by ourselves as most of the debugging can be 
done on the basic programme before converting it to machine code. 


Mark as also sent in some games programmes for the newsletter and 
these will be included in the next issue. on 


The other article in this issue is a three dimentional bar graph 
programme written by Tim Gray. It generates block bar graphs that 


look solid. 
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Manipulating the VDP with Machine Code. Mark Rudnicki. 


1: The Video Display Processor. 


memory since the 


The Cortex boasts a large amount of user large 
amount of RAM necessary for the implementation of high resolution 
graphics has been effectively removed from the memory map and put 
onto the other side of a two byte port. This leads to some advantages 
and some major disadvantages: 
+ Frees 16K of RAM for programming 
but - All access to VRAM is! via two 8 bit ports, causing 


programming complications. 
- Multiple instructions needed to alter the VRAM 
leading to reduced speed. - 


contents, 


The VDP port lies at )F120 and F121. 


There are four ways of 
accessing the VDP and VRAM: : 


MSB ' LSB Port 


R or W 
012345 6 7 
Write to VDP register | 
Byte 1 Data Dy D, Dy Dy Dy By Dg Dy F121 Write 
Byte 2 Reg. select 100 0 O R IRs, Re: F121 Write 
Read from Status Reg. | | 
Byte 1 Read data D, D, D, Dy Dy De Dy Ds PFL21 Read 
Write to VRAM 
Byte 1 Address set up Ag Az Ag Ay Ay A, Ay Ag F121 Write 
Byte 2 O 1 A,A, A, Ay Ay As F121 Write 
Byte 3 Data write D, D, D, D; Dy De Dy Ds F120 Write 
Read from VRAM 
Byte 1 Address set up A, A, A, Ay A, Ay Ay Ag F121 Write 
Byte 2 OO Ag A, A, A; AyAs F121 Write 
Byte 3 Data read DBBdDBDD Dy Dy 7F120 Read 
Data. 
In all cases, the data to be written or read is in byte form which 


means that a little care is needed when 
the VRAM. To move data from a workspace register, MOVB is used 
leftmost i.e. most 


Byte'). 


This moves the 
register. Similarly, MOVB @?F120,R1 will 


move it. to the uppermost byte of Register l. 


Address. 


read data 


transferring data to or 


('Move 
significant, byte of 
from the VDP 


This is a 14 bit value to give the full 16384 byte (16K) coverage, 
from 20000 to 23FFF. In a register containing a VRAM address, the 
lower byte will hold Agto Aj, and the upper byte A,to A;, like this: 


MSB [0 0 Ay A, Ay Ay Ay Ag] [Ay Ay Ay Ay Ay Ay Ay Ay] LSB 


To read from the VRAM, bits 0 and 1 must be clear, but to write, bit 


14.2 


\ 


1 must be set. The latter can be done either by ORing with >4000 or =: 
by Adding »)4000. 


e.g. LI Rl,address LI Rl,address 
ORI R11, 74000 or AI R1l,»4000 
etc 


The 16K ‘VRAM is divided up this way: 


GRAPH MODE 


0000 
As Graph mode is 
Pattern table. 7 the most useful for 
| games, the rest of 
article will 


13800 concentrate on 
~ Name table. this. 
Y 71B00 
72000 . Sprite attribute table. 
71B80 


Colour table. 


>3800 
Sprite pattern table. 
4000 


The Pattern table, the Colour table and the Name table. 


The pattern table is 6K long divided into three 2K segments- each. 
segment corresponds to a block of 256 character codes for a block of | 
256 screen locations. | | 

| 
Each 2K block is divided into 256 8 byte blocks. In this way, every 
pixel on the screen can _ be controlled achieving the 256*192 
resolution. The Colour table has a similar arrangement with 8 colour 
bytes per screen location i.e. one colour code for each row of an 
eight row screen character. 


The VDP knows which pattern to display by checking the Name table 
which indicates which pattern is to be used for each screen location. 
In the Cortex, the name table is arranged so that successive name 
tables. Hence, it is set up with the numbers 0 thru' 255 three times. 


>o0 | SCREEN 


- oF DKTTERN 
700 

bid 

NAME. TAALE cour 


14. 


The consequences of this mode of operation are as follows: 


+ Each screen location has a unique pattern/ colour 
combination so that each screen pixel can be individually 
controlled. 


+ This allows for high resolution line graphics to be 
displayed i.e. for graphs etc. 
but - To create a ‘character’ requires 16 accesses to VRAM: 8 
colour bytes and 8 pattern bytes, which is slow. 


Alternative use of the VDP. 


The other way to use the graphics mode is to make each entry in the 
Name table point to a preset character in the Pattern and Colour 
tables, as with TEXT mode. This leads to: 


—- Lower resolution- Screen data must be moved around in 
character sized chunks. 

—~ Individual lines can no longer be drawn. 

+ Much faster- only a single byte has to be written to VRAM 

' to place a character on the screen. 

+ SGET, or its equivalent, now takes on some meaning, as in 

; text mode, rather than moving 8 meaningless bytes around 

| from one place to another. 

These are some pros and cons for both methods, but certainly the 

second is easier to use and faster. 


The Sprite Table. 


This table is 128 bytes long, running from >}1B00 to >1B80, arranged 
with four bytes per sprite: 


MSB O 1 2 3 4 5 6 7 LSB 
0{- vertical position 


SSS ee 
x SPRITE No. ,X,Y,Shape,Colour 


<_—_—_—_____———- 


1 | horizontal position 
2 Name : 


3 CBO [TO] 0[ colour 


The early clock bit, if set, shifts the sprite 32 pixels to the left, 
to allow the sprite to bleed in from the left edge of the display. 


The Sprite Pattern table stores 256 8-byte blocks of data which make 
up the characters as defined by the "SHAPE' command. 


Machine code considerations for the TMS 9928/9. 


The CPU reads or writes to the VRAM via a 14 bit auto-. incrementing 
address register- this means that once an initial address has been 
set up subsequent locations can be accessed without setting up a new 
address every time. The VDP requires 8 As to fetch a VRAM byte 
following a data transfer, so this delay must be taken into 
consideration when programming. This delay can be performed using a 
meaningless MOV *R1,*R1 instruction. . 


If long routines which alter the VRAM contents are called from Basic, 


IG-§ 


\ : 
then it is wise to preceed them with a LIMI )}0000 instruction (Load 
Interrupt Mask Immediate) to disable the processor interrupts, and. to” 
end with a LIMI )OOOF. This might be needed to prevent the system, 
mucking about with the VRAM in the course of the user routine. Note, | 
the LIMI >0000 instruction stops the software clock. 


Using the Cortex Graphics mode. 
Individual points can be accessed using the formula: 
Point= X,Y 
VRAM byte = 256*INT(Y/8)+8*INT(X/8)+MOD(Y,8) 
The relevant bit number is MOD(X, 8) O=MSB, 7=LSB 


To see if this bit is set, try the following: 


Rl= read byte (in LSB of register) 
RO= bit number 


LI = R2,)0080 


ieee ee 


SRL R2,0 

COC R2,RI 

JNE bit not set 

bit set... 


SRL (Shift Right Logical) takes a shift count from RO if the shift 
count is zero (as above). If RO is zero, then R2 will be shifted 
right sixteen times. Other values give te following effects: 


RO Least significant byte of R2 


SION HW NH kK CO 


MSB oo LSB W=bit set 


COC R2,Rl1 (Compare Ones Corresponding), sees whether the bits set in 
R2 are also set in Rl; if so, then the equal flag ST2 is set. The JNE 
(Jump Not Equal) operates if the relevant screen bit was not set. 
Using this, the status of a screen bit can be tested and acted upon. 
Colour of a pixel. 

The colour of a pixel can be found as follows: 


Colour data =)2000 + Screen byte address 


If the pixel is set then the foreground colour should be returned, 
otherwise the background colour should be given. 


Firstly, the screen byte must be calculated: 


IG. 6 


RO= X Coord. 


TRUE COLOUR 


CLR 
MOVB 
OWPB 
LI 
ORL 
COC 
JNE 
ORL 


BIT NOT SET ANDI 


R1,R1O 
R10,)FFF8 
R10,5 

R1, 70007 
R1,R10 
RO,R4 
R4,7FFF8 
R4,R10 

RO ,20007 
@>READ ADDRESS 
R5 
@>F120,R5 
RS | 

R10, %2000 
@>READ ADDRESS 
R6 
@7F120,R6 
R6 

R7, 0080 
R7,0 

R7,R5 

BIT NOT SET 
R6,4 
R6,2000F 


rest of program... 


To set up the VRAM address, the following subroutine is needed. It 


Rl= Y Coord. 


R10=Y 

R1O=8*INT(Y/8) 

R10=32*R1O 

R1=MOD[Y,8] 

R10O=R10+R1 

R4=X | 

R4=8*INT(X/8) 

Rl10=Screen byte address 
RO=MOD(X,8) | 

Set up address to read VRAM 
Rb=0 

Move screen data into R5 
Swap it into the lower byte. 
Add to access colour table. © 
Set up address to read VRAM © 
R6=0 

Move colour data to R6_ 
Swap it into lower byte. 
Test bit start. — 
shift RO times right. 
See; if bit set 

No.| 
Yes 
Isolate colour code. 


t 


takes the VRAM address held in RIO and sets up the VDP for a VRAM 


data read. 


READ ADDRESS SWPB 
MOVB 
MOV 
SWPB 
MOVB 
MOV 


RT 


The BL (Branch and Link) instruction behaves like a GOSUB- its return 
GOSUB, it cannot 


address is 


stored in 


R1O 
R10,@>F121 
R10,R10 
R10 
R10,@?F121 
*R10,*R10 


Rll, but 


unlike a Basic 


Least sig. byte first. 
Move; top byte. 
Delay 


Delay. 
Return from subroutine. 


nested. Any attempt to do so will simply overwrite the previous 


return address. If nesting of subroutines is 
(Branch and Load Workspace Pointer) command must be used. The 
must contain the address 
address of a new workspace (32 bytes), and the 
YFO20 and YFO40 are two 


the subroutine. 


of two words- the 


required, then the 
first will be the 


convenient locations 


workspace registers as they are in fast on-chip RAM. 


To set up the VDP for a data write, the following code is needed: 


WRITE ADDRESS ORI 
JMP 


R10, 94000 
READ ADDRESS 


\q-? 


Set bit l 


select foreground colour. 


operand 


second the adress 


This sets bit 1 of the address word, which tells the VDP to expect a 
data write. The read subroutine can then be called to transfer the 
address. 


The to routines can be condensed as follows: 


WRITE ADDRESS ORI R10,)4000 

READ ADDRESS SWPB R1O 
MOVB R10,@2F121 
MOV RI10,R1O 
SWPB RIO. 
MOVB R10,@>F121 
MOV *R10,*R1O. 
RT 


The entry point is chosen depending upon whether a VRAM read or write 
is required. | 


Returning values to Basic. 


If values need to be returned to Basic, then’use must be made of the 
Basic ADR function, which gives the position of the variable in 
memory. : 


e.g. for the 'True colour of a pixel' routine, this can be done as 
follows: | | | 


A=0: CALL "TRUE COLOUR",Address,X,Y,ADR(A) 
Where A is any variable, and X and Y are the pixel coords. 
ADR(A) will be stored in R2 when the routine is called. R6 contains 


the true pixel colour, and can be stored in the variable with the 
addition of this code: 


INCT R2 
INC R2 R2=R2+3 
MOV R6,*R2 Store R6 in variable. 


R2 has to be incremented three times so that it points to the correct 
word to be altered (see Cortex instruction manual, page 2-12). 
| | 


Setting and resetting pixels. 


pixel operations are necessary for line and circle drawing routines, 

and for building up characters. Whilst Basic caters for the line | 
drawing, the routine is not accessible from machine code yet, until 
more information about the Basic is released. t 


RO= X Coord. 
Rl= Y Coord 
R2= Colour 


R3= 0 for set, 1 for reset 


e.g. CALL "PLOT",Address,X,Y,Colour,Plot? 


1%. 


PLOT 


BIT NOT SET 


R1,R8 
R8,)FFF8 


R8,5 


R1, 70007 
RL,R8 

RO,R4 

R4, PFFF8 
R4,R8 

RO, »0007 
R8,R1O 

@>READ ADDRES 


RO | 


@>F120,R5 

R5 

R5,0 
R5,7FFEF 
R3,R3 

BIT NOT SET 
R5,70100 | 
R5,0 

R5 


@7WRITE ADDRESS 


R5,@>F120 
R5 

R8, 72000 
R8,R1O 
@>READ ADDRESS 
@>F120,R5 
R5 

R5, YOOOF 
R2,4 
R2,R5 

R5 


@>WRITE ADDRESS 


R5,@>F120 


Line and circle plotting. 


For fast line 


and 


circle 


algorithms, 


R8=Screen byte address. 


Read current screen byte. 


Shift it and reset target bit. 
Test R3 for zero. 7 


Branch if zero 


Otherwise set bit. 


Shift back 


Write screen byte. 


Set up colour table address. 


Read current colour. 


Isolate current background. 


Add new foreground. 


Write new colour byte. 
Return from subroutine. 


integer routines 


have 


been 


developed e.g. Bresenham, in ‘Interactive Computer Graphics' by Foley 
since floating point routines are 


and Van Dam. 
inherently slo 


This 
We 


is important 


Bresenham's Circles. . 


The best way to describe this routine is to present it in Basic first, 
to show its simplicity. 


10 X=0: Y=R: D=3-2*R: A=128: B=96 
20 IF X)=Y THEN GOTO 80 


30 GOSUB 


100 


40 IF D<O THEN D=D+4*X+6 


50 ELSE D=D+4*(X-Y)+10:Y=Y-1 


60 X=X+l 
70 GOTO 2 


0 


80 IF X=Y THEN GOSUB 100 


1G. 


90 END 


100 PLOT A+X,Bt+Y:PLOT A+X,B-Y:PLOT A-X,B+Y:PLOT A-X,B-Y 
110 PLOT At+Y,B+X:PLOT A+Y,B-X:PLOT A-Y,B+X:PLOT A-Y,B-X 


120 RETURN 


The een plot commands mean 


to be computed- the _ rest 


that only an eigth of the circle needs 
derived through symmetry. 


However, in 


machine code, the coding is fairly long and tedious. Use can be made 
of the previously defined PLOT subroutine, to create this new command: 


CALL "CIRCLE" ,Address,X,Y,Radius,Plot?,Colour 
Ly | 


Centre 


Plot or unplot. 


The point plot subroutine needs to the BLWP'd, so 2. additional words 


are needed: 


POINT PLOT DATA F020 


| 
! 


DATA ?Start address of PLOT 


»FO20 will be the new sotbapece when the PLOT routine is called, and 


is in fast on-chip memory. 


>FO20= X Coord of point 
2?FO22= Y Coord of point 


7FO024= Colour 


F026= Plot or unplot 


CIRCLE CLR RS 
MOV R2,R6 
LI R7,>0003 
SLA R2,1 
S R2,R7 
LOOP C R5,R6 
- JHE END 
BL @PLOT 
MOV R7,R7 
JEQ D>=0 
JGT Dy=0 
R7,7 0006 
MOV R5,R2 


JMP LOOP 


END C R5,R6 
JEQ PLOTIT 


PLOTIT BL @PLOT 


Id .10 


R5=X 

R6=Y 

R7=3 

R2=2*R 

R7= D=3-2*R 

Is X?=Y? 

Yes, then goto end bit. 
Plot 8 points 

Set flags for D 

Jump if D equals zero 
Jump if D > zero 
D=D+6 


R2=X 


R2=X*4 
D=D+X*4 
X=X+1 

Loop 
D=D+10 
R2=X 
R2=X-Y 
R2=4%*(X-Y) 
D=D+4*(X-Y) 


Y=Y-1 


Jump back and inc. X 
Compare X and Y 

X=Y? If yes, then jump 
Otherwise end 

Plot 8 points 

Then end 


PLOT 
AGAIN 


There are probably better 


you! 


R9,2 
R4,@)F024 
R3,@> F026 


‘RO, @S$FO20 


R1,@>FO22 
R5,@>F020 
R6,@>F022 
@POINT PLOT 
R4,@>FO24 


RO,@>F020 
R1,@>F022 


R5,@>F020 
R6,@>FO22 
@POINT PLOT 
R4,@ F024 
RO, @F020 
R1,@AFO22 
R5,@>F0O20 
R6,@SFO22 
@POINT PLOT 
R4,@ F024 
RO,@>F020 
R1,@>FO22 
R5,@ 7F020 
R6,@7 F022 
@POINT PLOT 
R5,R8 

R6,R5 

R8,R6 

RY 

AGAIN 


Bresenham's line algorithm. 


Loop counter 
Store colour 
Store plot? 


PLOT 
and PLOT 


PLOT 
and PLOT 


PLOT 
and PLOT 


PLOT 
and PLOT 


Reverse X 


A+X,BtY : 


A+Y , B+X 


A+X ,B-Y 
A+Y , B-X 


A-X,B+Y _ 


A-Y ,B+X 


End of loop? 


Not yet 
Now it ist 


Again, in Basic, this goes as follows: 


90 

100 
110 
120 
130 
140 
150 


The call 


CALL "PLOT LINE",Address,X1,Y1,X2,Y2,Colour,Plot? 


INPUT X1,Y1,X2,Y2 


F=0: DR=l 


DX=ABS(X2-X1): DY=ABS(Y2-Y1) 


IF DY>DX THEN A=X1:X1=Y1: Y1=A:A=X2:X2=Y2:Y2=A: F=1:GOTO30 


D=(2*DY)-DX: 11=2*DY:12=2%* (DY-DxX ) 
IF X1>X2 THEN X=X2:Y=Y2:XE=X1:YE=Y1 
ELSE X=X1:Y=Y1:XE=X2: YE=Y2 
IF YE¢<=Y THEN DR=-1 


IF F THEN 


PLOT Y,X 


ELSE PLOT X,Y 
IF X)=XE THEN END 


X=X+1 


IF D<O THEN D=D+I1 
ELSE Y=Y+DR:D=D+12 


GOTO 90 


for this is: 


iq .(f 


ways of doing this- I'll leave this one to 


And the machine code: 


PLOT LINE 


DYDX 


NOSWAP 


NOMOVE 


HIGHER 


PLOT LOOP 


NOREVERSE 


NOEND 


R7,»0001 


NOMOVE 
RO,R10 
R2,RO 
R10,R2 
R1,R10 
R3,R1 
R10,R3 
R3,R1 
HIGHER 
R7, )FFFF 
R9,1 
R9,R10 
R8,R10 
R10,R3 
R8,R3 
R5,@>F026 
R4,@>F024 
RO,@>F020 
R1,@>FO22 
R6,R6 
NOREVERSE 
RO, @>F022 
R1,@SFO20 


@POINT PLOT 


RO,R2 
NOEND 


RO 
R1O,R1O 
ADDI2 
ADDI2 
R9,RLO 
PLOT LOOP 


 R3,R10. 


R7,R1 
PLOT LOOP 


(¢.(c 


DR=1 


F=0 

R8=X2 

R8= ABS(X2-X1) =DX 
R9=Y2 | 

R9=Y2-Y1 | 

R9= ABS(Y2-Y1) =DY 

DX DY? | 

No swap if DX =DY | | 


Swap X1,Yl_ | | 
| 


| 
| 
Swap X2,Y2 
F=1 
Recalculate DX,DY 


Compare Xl and X2 ro 
Jump if Xl =X2 


Otherwise swap Xl and XK2 


een ene ae ae ee 
eee 


and swap Yl and Y2 | 


Compare YE and Y 

Jump if higher or equal , 
Else DR=-1 ! 
D9=2*DY = I1 

R1O (D) = D9 

R1O = 2*DY-DX 

R3=2*DY-DX 

R3=2%(DY-DX) =I12 | 
Store Plot? 7 | 
Store colour 

Store X 

Store Y 

Check for F 

Jump if zero 
Otherwise reverse X 
and Y 

Then plot point 
Compare X and XE 
Jump if lower 

Else end 

X=X+1 

Check D 

Jump if D0 

Jump if D=0 
Otherwise D=D+t+I1 
Loop 

D=D+I12 

Y=Y+DR 

Loop 


The routine follows almost the same fromat as the Basic program- note 
that the actual program loop is short, keeping up the speed. 


The use of these routines allows simple vector graphics type displays 
to be built up, especially from machine code where the _ speed 
difference becomes more noticable (the CALLs are. slowed by Basic 
checking the passed parameters). | 


Redefining the Graphics mode. 
| 


The other way to use to graphics mode is to store predefined 
character/ colour combinations in the pattern and colour tables, and 
to, use the Name ‘table to select which character appears on the screen. 
Since the Pattern and Colour tables are divided into three groups, 
each character must be defined three times, once in each section of 
the tables. Once accomplished, displays of very colourful characters 
exploiting the full resolution of the mode can be built up. 


All the routines: have been presented in the Cortex Users Group 
newsletter, nos. /2 and 3. Please write to the Users Group if you 
require back numbers. | | 


| 
Use of the routines. 


Once redefined, screen data can be thrown around fairly easily e.g. 
Burglar, Invaders. The effects in Burglar are created by redefining 
the characters which make up the ladders etc. so that they all appear 
to move, wherever they are placed. 


For more adventurous use of machine code, two more standard routines 
are needed. These are for key pickup, and for printing and erasing 
gaming characters. 


Keyboard pickup 


The 2536 keyboard controller sends back either the ASCII code of the 
key being pressed, or random data if there is no key down. Hence, = any 
keyboard routine will have to compare, after a short delay, the 
current keyboard data with its previous value to see if the value 
remains constant- if yes, then the data is reliable and can be jacted 
upon. This suitable delay could be the program loop, if short enough. 


Keyboard data can be read using the following: 


CLR R12 . BASE QO 

STCR RO,O RO=CRF[0] 
SWPB RO Swap data to LSByte 

ANDI RO,>OOFF AND to clear rubbish 


RO=ASCII code of key/ random data. 


A spare word can be used to hold the 'LAST DATA' i.e. the previous 
value read from the keyboard chip. The present value can be checked 
against this, and if they are equal, then the key is valid. Otherwise, 
the new value is stored in 'LAST DATA' and the routine left. 


lG-( 38 


The routine may continue: 


C . RO,@LAST VALUE 
~JEQ DATA VALID | | 
MOV R1,@LAST VALUE | 

RTWP 

DATA VALID CI RO,KEYCODE1 

JEQ ROUTINE 1 

CI RO,KEYCODE2 

JEQ ROUTINE 2 


etc. 


Printing and clearing characters. 

Often it is necessary to print player or other characters which are 
made up of more than one block. This can be done using an offset 
table and a character code table. However, because all the ‘characters 
have to be user defined, they can be arranged successively. 


i 
of tt 33 


dhy | chhr 
1x42 [xt 


e.g. for a 2 by 2 character: 


SEB 
ofiset 32 


The offset table looks like this: 


OFFSET DATA 7 OOO1 
DATA > 2021 


and can be printed using: 


LI RO,start screen location 
LI Rl,first character number 
| CLR R2 
LOOP CLR R3 
- MOVB @OFFSET(R2),R3 
SWPB R3) 
ee RO,R3 
| MOV R3,@>F020 
MOV) R1,@)FO22 
BLWP @PUT CHAR 


INC Rl 
INC R2 
CI R2,4 
JNE LOOP 
RT (WP ) 


To clear the character, blanks (ASCII 32), can be moved to >FO22 
during a similar routine. The fifth instruction above is an example 
of indexed addressing- R2 is added to 'OFFSET' to create the address 
for the data to be moved. 


1Gde 


Full listing of line and circle plots. 


Commands are: 


MON 


Monitor Rev. l 
[]U 6200 6406 


6200 
6204 
6206 
620A 
620C 
620E 
6212 
6214 
6216 
621A 
621C 
6220 
6222 
6226 
6228 
622C 
622E 
6230 
6234 
6236 
623A 
623C 
6240 
6242 
6246 
6248 
624A 
624E 
6250 
6252 
6256 
6258 
625A 
625E 
6262 
6264 
6268 
626A 
626E 
62/72 
6274 
6278 
627A 
62/7C 
627E 
6282 


026A 
O6CA 
D80A 
C28A 
O6CA 
D80A 
C69A 
O45B. 
FO20 
0000. 
0300 
C201 
0248 
OA58 
0241 
A201 
C100 
0244 
A204 
0240 
C288 
O6A0 
0580 
D160 
06C5 
OAOS 
0245 
COC3 
1602 
0225 
0905 
06C5 
06A0 
D805 
O4C5 
0228 
C288 
06A0 
D160 
06C5 
0245 
OA42 
A142 
06C5 
06A0 
D805 


ORI 
SWPB 
MOVB 
MOV 
OWPB 
MOVB 
MOV 
RT. 
SOCB 
DATA 
LIMI 
MOV. 
ANDI 
SLA | 
ANDI 


CALL 
CALL 
CALL 
CALL 


wt 1962 


R10, >4000 
R10 


R10,@)F121 


R10,R10 
R10 
R10,@>F121 
*R10,*4R1I0 


@)621C,RO 


90000 
70000 
R1,R8.. 


R8, )FFF8 
8,5. 


R1, 70007 
R1,R8 
RO,R4 


R4,)FFF8 


R4,R8 
RO, }0007 


@ >F120,R5 
R5 

R5,0 

R5, >FEFF 
R3,R3 
76256 
R5, 20100 
R5,0 

R5 

@>6200 
R5,@>F120 
R5 
R8,>2000 
R8,R10 

@ 76204 
@>F120,R5 
R5 

R5, ,O00F 
R2,4 
R2,R5 

R5 

@76200 
R5,@9F120 


GS 


6286 
6288 
628C 
6290 
6294 
6298 
629C 
62A0 
62A4 
62A8 
62AC 
62B0 
62B4 
62B8 
62BC 
62C0 
62C4 
62C8 
62CC 
62D0 
62D4 
62D8 
62DC 
62E0 
62E4 
62E8 
62EC 
62F0 
62F2 
62F4 
62F6 
62F8 
62FA 
62FC 
6300 
6302 
6304 
6308 
630A 
630C 
630E 
6310 
6314 
6316 
6318 
631A 


0380 
0209 
C804 
C803 
C800 
C801 
A805 
A806 
0420 
C804 
C800 
C801 
A805 
6806 


0420 


C804 
C800 
C801 
6805 
A806 
0420 
C804 


C800 — 


C801 
6805 
6806 
0420 
C205 
C146 
C188 
0609 
16C9 
045B 
0300 
O4C5 
C182 
0207 
0A12 
61C2 
8185 
1414 
06A0 
CiC7 
1308 
1507 
0227 


BLWP | 


"POINT PLOT" ,6220H,X,Y,Colour,Plot? © 
"CIRLE",6300H,X,Y,Radius,Plot?,Colour 
"DEMO" ,6248H 

"LINE PLOT",6380H,X1,Y1,X2,Y2,Colour, Plot? 


R9,Y0002 


R4,@>F024 
R3,@>F026 ° 


RO, @7F020 
R1,@>F022 
R5,@)£020 


R6,@>FO22 


@>6216 
R4,@yFO24 


RO,@ F020 
RL, @yFO22. 


R5,0>F020 
R6,@yYFO22 
@56216 

R4,@ F024 
RO,@> F020 
R1,@yFO22 


R5,@>F020— 


R6,@ YFO22 
@>6216 

R4,@>FO24 
RO, @ F020 


R1,@YFO22 


R5,@>FO20 
R6,@7FO22 


> 0000 

R5 

R2,R6 
R7,70003 
R2,1 


~R2,R/ 


R5,R6 
6338 
@>6288 
R7,R7 
> 6328 
36328 


R7, 70006 


| 


sick | Soe tee ee 


631E 
6320 
6322 
6324 
6326 
6328 
632C 
632E 
6330 
6332 
6334 
6336 
6338 
633A 
633C 
633E 
6342 
6344 
6346 
6348 
634A 
634E 
6352 
6356 
635A 
635E 
6362 
6364 
6368 
636C 
6370 
6372 
6376 
6378 
637A 
637C 0000 
637E, 0000 
6380 0300 
6384 0207 
6388 O4C6 
638A C202 
638C 6200 
638E 0748 
6390 C243 
6392 6241 
6394 0749 
6396 8248 
6398 1408 
639A C280 
639C COO] 
639E CO4A 
63A0 C282 
63A2 C083 
63A4 COCA 
63A6 0586 


C085 
0A22 
A1C2 
0585 
10F2 
0227: 
C085 
6086 
0A22 
A1C2 
0606 
LOF6. 


1301 
0380 
06A0 
0380. 
FO4O 
6300. 


0200 
C800 
0200 
C800 
C803 
O4E0 
C003 
0240 
C800 
0420 
0583 
0283 
16E9 
0380 


8185 | 


04C3 © 


0000 — 


%630C 


R5,R2 


 R3 
RO, ?0080 
RO, @>F040 
-RO,¥0060 


RO, @>F042 
R3,@?FO44 


@ F046 
~R3,RO 


RO, 2000F 
RO, @>F048 
@>6344 

R3 

R3, 2005F 
Y634A 


»0000 
0000 
>0000 
0000 


R7, 90001 


14-16 


63A8 
63AA 


_63AC 


63AE 
63B0 
63B2 
63B4 
63B6 
63B8 
63BA 
63BC 
63BE 
63C2 
63C4 
63C6 
63C8 
63CA 
63CC 
63D0 
63D4 
63D8 
63DC 
63DE 
63E0 
63E4 
63E8 
63EC 
63EE 
63F0 
63F4 
63F6 
63F8 
63FA 
63FC 
63FE 
6400 
6402 
6404 
6406 


10FO 
8080 C 
1206 
C280 
C002 
CO8A 
C281 
C043 
COCA 
8043 C 
1402 
0207 LI 
OAL9 
C289 
6288 S 
COCA 
60C8 S 
C805 MOV 
C804 MOV 
C800 ; MOV 
C801! MOV 
C186! MOV 
1304) JEQ 
C800] MOV 
C801! MOV 
0420 BLWP . 
8080 C 
1A03 JL 
0300 | LIMI 
0380 'RTWP 
0580: INC 
C28A MOV 
1503 JGT 
1302 JEQ 
A289 A 
10E7 JUMP 
A283 A 
AO47T A 
10E4 JMP 


638A 
RO,R2 
¥63BA 
RO,R1O 
R2,RO 
R10,R2 
R1,R1O 
R3,R1 
R10,R3 
R3,R1 


—763C2 


R7,?FFFF 
R9,1 
R9,R10 
R8,R10 
R10,R3 


R8,R3 me 
R5,@>F026 
R4,@>F024 

RO, @>F020 


R1,@?F022 
R6,Ro 


-763E8 


RO, @>F022 
Rl ,@7FO20 
@76216 
RO,R2 
76 3F6. 


YOOOF 


RO 
R10,R10 
6402 
76402 
R9,R10 
76 3D0 
R3,R10 
R7,R1 
76 3D0 


THREE DIMENTIONAL BAR GRAPH FROGRAMME Tim Gray. 


This 


programme could be used as a subroutine of a 


larger 


programme for displaying data in 3D form. It generates block ‘bar 
graphs that look solid. 


1@ 
24 
356 
4G 
JQ 
50 
7@ 
8A 
20 
140 
116 
120 
130 
140 
156 
1406 
17@ 
186 
196 
~O48 
210 
226 
23 
240 
2358 
260 
2/70 
780 
290 
548 
3518 
320 
338 
548 
5358 
568 
34/78 
3580 
398 
4G 
410 
420 
436 
446 
438 
440 
47@ 


REM *** 3D BAR GRAPH DEMO PROGRAMME *** 


REM #*+ TIM GRAY ee 
REM | : 

COLOUR 15,1: GRAPH 

REM 


REM ** B= Baseline 
REM ** H = Hight up toa 100 
REM ** BLE = Block Number 
REM ** Ci C2? CS = Front,Side,Top Colours 
REM *** Set random data for block *#*+* 
B=180 a ) 
BLK=1: H=RND*#15@: Ci=S: C2=4: C3=7: FA="1980" 
GOSUB 260 7 
BLE=2: H=RND*¥15@: Ci=9: C2=8: CS=1il: #A="1981" 
GOSUBH 260 | 
BALK=5: H=RND#150: Ci=3: C2=2: C3=14: #A="1982" 
GOSUB 2460 
BLi¢=4: H=RND#*15@: Ci=9: C2=46: C3=135: FA="1985" 
GOSUH 260 
BLE=S: H=RND*1i5@: Ci=11: CP=1@0: C3=9: #A="1984" 
GOSUB 2606 
COLOUR 15,@: PRINT @(1,1)3;"PRESS ANY KEY": GOSUB 450 
REM 
REM *** Draw the block *** 
REM 
COLOUR 15,@: PRINT @(BLE#5-1,23);4A 
COLOUR C1,C2: D=BLKE*40+16 
FOR F=B TO H-6 STEFF ~-1 
COLOUR C1,C?: PLOT BLE*4@,F TO BLE*40+15,F 
COLOUR C2,@: PLOT BLE*4@+16,F TO D,F 
D=D+1: NEXT F 
FOR F=8-7 TO B-H-7 STEF -1 
COLOUR C1,C2: PLOT BLK*4@,F TO BLE*40+15,F 
COLOUR C2,C2: FLOF BLEK*4@+16,F 
NEXT F | 
C=BLK#4@: D=C+16 | 
FOR T=B-7-H TO B-13-H STEP —-1 
COLOUR C3,@: PLOT C,T TO BLK*#4@+15,7T 
C=C+i 
COLOUR C3,C2: PLOT BLE*40+16,T TO D,T 
D=D+1 | 
NEXT T 
RETURN 
REM *#*# Loop for another go *** 
LET K=KEYCO] 
IF K<>@ THEN PRINT "<@C3": WAIT 180: GOTO 50 
FLSE GOTO 45@ 


1G -17 


CORTEX USERS CLUB SALE 
$=FPOUNDS PLEASE NOTE SOME ITEMS HAVE INCREASED IN PRICE DUE 


[mee ames ee ee GE) ee ee ee oo me Qneee OTe cee cums eeewe Cue Gummy cEmEe eotee canes enven ences ame qoes comms coms ame comm aan Gmee eeu qos cere come eeeey come came ccm eee comme comes casey qoeee ween comme remy Sree cneee cums ene cen em come ames rte ome cones nme erent 


TO IC AND COMPONENT PRICE INCREASE ao 
RGR INTERFACE FARE ROAR $8.00 KIT $25.00 
CENTRONICS INTERFACE BARE BOARD $7.00 KIT $15.00 
 E BUS -ALL IC’S 7 «KIT $30.00 
SEMICONDUCTORS | —_ 
TMS9902 $2.00 
74LS412 (3 AVALABLE) : $25.00 
ee Ee ay Oe te eR ape ROE RENO A OPE EEE a eet RE OEE fas et me PRE SON ae ae ERE ON eT RC aT OE Te Oe 
CIN OFFER , 
74LS411/74LS4611 (NEED PULL UF RESISTORS) $10.00 


E BUS EPANSICN 
E BUS (4K RAM,SK EPROM SCKT,16 IN/OUT LINES) $15.00 
NOTE-THESE CARDS ARE EX EQUIPMENT TESTED AND WORKING 
E BUS (#8 EPROM SCKT CARD BUILT NG EPROMS FITTED) $30.00 
NEW € BUS S12K DRAM “THRO’ PLATED BARE BOARE | $40.00 
USES TMS4500 AND TMS4444 OR EQUIVELENT + 4 COMMON SUPPORT CHIPS 
CORTEX EXPANSICN 
EXTERNAL VIDIG INTERFACE BARE BOARD $15.00 KIT $20.00 


DISK CONTROLER (WO 2797+BOARD) CURTEX I mate OO 

QIsk CONTROLER (WO 2797+BOARD) CORTEX II $640.00 
CORTEX SOFTWARE : 

DISK GFERATING SYSTEM COoOS 1.20 AND 2.00 $42.00 


coos 2.00 FOR #797 SYSTEM coos 2.0 FOR 2777 SYSTEM ALL FCIRMATS 
NEW FORMAT 3" 40T SINGLE SIDED ho 
MEMBERS SCQFTWARE : | 
: WORTEX-WORD PROCESSING 7 $15.00 
INCLUDES SPELLING CHECKER : 
SEND Ta J & MACKENZIE (NEW ALDRESS) 
20 WEST ROAL 
BARTON STACY 
WINCHESTER 
HANTS SO21 BSR 
(INCLUDE Twa S"" DD DISks) 
DRAWTECH-GRAPHICS DRAWING PACKAGE $20.00 
SEND Tot T GRAY. C/O CORTEX USERS GROUF ADDRESS 
ASSEMBLER CDOS COMPATIBLE FOR DISK SYSTEM WRITEN BY C JU YOUNG | 
FOR THE USER GROUP (WE RECOMMEND) | 
AVAILABLE FROM CORTEX USERS GROUP $15.00 
(ALL FORMATS ON DISK) 
CORTEX USERS GROUP SOFTWARE MOST NOW ON DISK ( ALL FORMATS ) 
ALL GAMES $2.50 EACH 


BURGLAR MUNCHER THE Zad FIRE BIRD: 

FROGGER G DESIGN GCLF RESCUE 

INVATERS&AE TEROIDS WALL MICROPED FENG 

HUNCHBACK ARCHIE SPACE-BUG MOONRASETI 

MAZE NIGHT ATTACK MAZE 30 | LABYRINTH GF TAG 

CLIMFICS NEW CORTELLG FENG CENTIPEDE 
CORRECTION | 


ASSEMBLER FROM RM LEE IS NOW $14.00 HIS NEW ADDRESS Is 
3 RENOWN ROAD 
LORDSWOOD 
CHATHAM 
KENT MES SSG 


